home *** CD-ROM | disk | FTP | other *** search
/ Sports Illustrated for Kids - Awesome Athletes! / Sports Illustrated for Kids - Awesome Athletes!.iso / th.dir / 00009_Main FS.ls < prev    next >
Encoding:
Text File  |  1996-04-18  |  1.0 KB  |  52 lines
  1. on exitFrame
  2.   global cTHVRChannel, gTHSpin, gTHRefresh, gTHReopen, gTHNormalSize, gTHCloseMovie, gSISystem, gSIActiveWindow, gSILastHwnd, gSIHParentWnd
  3.   if gSISystem = "WIN" then
  4.     set vHWnd to gSIActiveWindow(mCall)
  5.     if vHWnd <> gSILastHwnd then
  6.       if gSILastHwnd <> -1 then
  7.         set gTHRefresh to 1
  8.       end if
  9.       set gSILastHwnd to vHWnd
  10.     end if
  11.     if vHWnd <> gSIHParentWnd then
  12.       go(the frame)
  13.       exit
  14.     end if
  15.   end if
  16.   if gTHRefresh then
  17.     ShowPanoMovie(0)
  18.     set gTHRefresh to 0
  19.   end if
  20.   if gTHReopen then
  21.     setVRSize(gTHNormalSize, 0)
  22.     ShowPanoMovie(0)
  23.     set gTHReopen to 0
  24.   end if
  25.   if gTHSpin then
  26.     spinVR(30 + random(70))
  27.     sound fadeOut 1
  28.     set gTHSpin to 0
  29.   end if
  30.   PanoFrameScript(cTHVRChannel)
  31.   UIRollover(47, -1)
  32.   hRolloverScript("Main")
  33.   if gTHCloseMovie then
  34.     set gTHCloseMovie to 0
  35.     if gSISystem = "WIN" then
  36.       WIN_QT_Close()
  37.     else
  38.       DVClose()
  39.     end if
  40.   end if
  41.   go(the frame)
  42. end
  43.  
  44. on mouseUp
  45.   puppetSound(0)
  46.   rolloverHandler(0)
  47. end
  48.  
  49. on mouseDown
  50.   puppetSound(0)
  51. end
  52.